home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib16.dsk / FILL DEMO 2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  27 lines
  1. 10  HOME :FILL = 768
  2. 20  PRINT  CHR$(4)"BLOAD FILL.OBJ0"
  3. 30  HGR2 :N = 142: GOSUB 1000
  4. 50 M =  INT( RND(1) *N) +1:L = L(M):T = T(M):L(M) = L(N):T(M) = T(N)
  5. 55 Z =  INT( RND(1) *8):COLR = CO(Z)
  6. 60  CALL FILL,COLR,L,T,L +5,T +5,0
  7. 65 X =  PEEK( -16336) + PEEK( -16336)
  8. 70 N = N -1: IF N >0  THEN 50
  9. 75  GET A$: HOME : TEXT : CALL 62450: END 
  10. 80  END 
  11. 1000  DIM L(142),T(142)
  12. 1005  FOR I = 0 TO 7:CO(I) = I: NEXT :CO(0) = 2:CO(4) = 6:CO(7) = 3
  13. 1010  FOR I = 1 TO 142: READ L(I),T(I): NEXT 
  14. 1015  CALL FILL,3,24,0,29,32,0: CALL FILL,3,30,12,45,17,0: CALL FILL,3,40,18,45,32,0: CALL FILL,3,30,27,40,32,0
  15. 1017  CALL FILL,3,52,12,57,32,0: CALL FILL,3,58,27,67,32,0: CALL FILL,3,68,12,73,48,0: CALL FILL,3,62,43,67,48,0
  16. 1019  RETURN 
  17. 1020  DATA  32,72,24,72,16,72,8,72,0,72,0,80,0,88,0,96,0,104,0,112,8,112,16,112,24,112,32,112,32,104,32,96,24,96,16,96
  18. 1030  DATA  48,96,48,88,48,80,48,72,48,64,56,56,64,56,72,56,80,64,80,72,80,80,80,88,80,96,56,80,64,80,72,80
  19. 1040  DATA  96,88,96,80,96,72,96,64,96,56,96,48,104,48,112,48,120,48,128,56,128,64,120,72,112,72,104,72,120,80,126,88
  20. 1050  DATA  144,80,144,72,144,64,144,56,144,48,144,40,152,40,160,40,168,40,176,48,176,56,168,64,160,64,152,64,168,72,174,80
  21. 1060  DATA  204,88,204,80,204,72,204,64,196,56,188,48,212,56,220,48
  22. 1070  DATA  32,136,32,144,32,152,32,160,32,168,32,176,64,136,56,144,48,152,40,160,48,160,56,168,64,176
  23. 1080  DATA  88,144,88,152,88,160,88,168,88,176,88,184
  24. 1090  DATA  112,144,120,144,128,144,136,144,144,144,144,152,136,160,128,168,120,176,112,184,120,184,128,184,136,184,144,184
  25. 2000  DATA  168,136,168,144,168,152,168,160,168,168,168,176
  26. 2010  DATA  192,168,192,160,192,152,192,144,192,136,200,128,208,128,216,128,224,136,224,144,224,152,224,160,224,168,200,152,208,152,216,152
  27. 2020  DATA  240,120,240,128,240,136,240,144,240,152,240,160,272,120,264,128,256,136,248,144,256,144,264,152,272,160